home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-09-01 | 8.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Acorn (RISC OS) Sprite (image/acornSprite)
| magic
| Supported |
| 100%
| file
| GLS_BINARY_LSB_FIRST
| default
| |
| 99%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 40 07 00 00 10 00 00 00 | 00 00 00 00 00 00 00 00 |@.......|........|
|00000010| 11 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000020| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000030| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000040| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000050| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 12 |........|........|
|00000060| 1a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|000000b0| 13 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000000c0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000000d0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000000e0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000000f0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 14 |........|........|
|00000100| 11 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000110| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000120| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000130| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000140| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 12 |........|........|
|00000150| 1a 01 43 75 73 74 6f 6d | 65 72 20 4e 75 6d 62 65 |..Custom|er Numbe|
|00000160| 72 3a 02 20 20 20 20 20 | 20 20 20 20 20 20 20 01 |r:. | .|
|00000170| 43 75 73 74 6f 6d 65 72 | 20 4e 61 6d 65 3a 02 20 |Customer| Name:. |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|000001a0| 19 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000001b0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000001c0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 17 1b 1b 1b 1b |........|........|
|000001d0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000001e0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 18 |........|........|
|000001f0| 1a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000200| 20 42 49 4c 4c 20 54 4f | 20 20 20 20 20 20 20 20 | BILL TO| |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 1a 20 20 20 20 | | . |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 53 48 49 50 20 | | SHIP |
|00000230| 54 4f 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a |TO | .|
|00000240| 1a 01 53 74 72 65 65 74 | 3a 02 20 20 20 20 20 20 |..Street|:. |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 1a 20 20 20 20 | | . |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|00000290| 1a 01 43 69 74 79 3a 02 | 20 20 20 20 20 20 20 20 |..City:.| |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 20 1a 20 20 20 20 | | . |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|000002e0| 1a 01 53 74 61 74 65 3a | 02 20 20 20 01 5a 49 50 |..State:|. .ZIP|
|000002f0| 3a 02 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:. | |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 1a 01 53 74 61 | | ..Sta|
|00000310| 74 65 3a 02 20 20 01 5a | 49 50 3a 02 20 20 20 20 |te:. .Z|IP:. |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|00000330| 19 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000340| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000350| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 16 1b 1b 1b 1b |........|........|
|00000360| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000370| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 18 |........|........|
|00000380| 1a 01 4c 61 73 74 20 4e | 61 6d 65 3a 02 20 20 20 |..Last N|ame:. |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000003a0| 20 20 20 20 20 20 20 20 | 20 01 46 69 72 73 74 20 | | .First |
|000003b0| 4e 61 6d 65 3a 02 20 20 | 20 20 20 20 20 20 20 20 |Name:. | |
|000003c0| 20 20 20 20 20 20 20 20 | 01 4d 49 3a 02 20 20 1a | |.MI:. .|
|000003d0| 1a 01 48 6f 6e 6f 72 69 | 66 69 63 3a 02 20 20 20 |..Honori|fic:. |
|000003e0| 20 20 01 28 31 3d 4d 72 | 2e 2c 32 3d 4d 72 73 2e | .(1=Mr|.,2=Mrs.|
|000003f0| 65 74 63 29 01 53 61 6c | 75 74 61 74 69 6f 6e 20 |etc).Sal|utation |
|00000400| 4e 61 6d 65 3a 02 20 20 | 20 20 20 20 20 20 20 20 |Name:. | |
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|00000420| 1a 01 50 68 6f 6e 65 3a | 02 28 20 20 20 29 20 20 |..Phone:|.( ) |
|00000430| 20 20 2d 20 20 20 20 20 | 20 20 01 45 78 74 3a 02 | - | .Ext:.|
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|00000470| 1a 01 54 65 72 6d 73 3a | 02 20 20 20 20 20 20 20 |..Terms:|. |
|00000480| 20 20 01 28 31 3d 43 61 | 73 68 2f 43 4f 44 2c 20 | .(1=Ca|sh/COD, |
|00000490| 32 3d 4e 65 74 2c 20 33 | 3d 4e 65 74 33 30 2c 20 |2=Net, 3|=Net30, |
|000004a0| 34 3d 4e 65 74 36 30 29 | 02 20 20 20 20 20 20 20 |4=Net60)|. |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|000004c0| 19 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000004d0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000004e0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000004f0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000500| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 18 |........|........|
|00000510| 1a 20 20 20 20 20 20 20 | 43 55 52 52 45 4e 54 20 |. |CURRENT |
|00000520| 4b 45 59 20 49 53 3a 20 | 20 20 20 20 20 20 20 20 |KEY IS: | |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|00000560| 19 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000570| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000580| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000590| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|000005a0| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 18 |........|........|
|000005b0| 1a 20 01 46 31 20 2d 20 | 43 68 61 6e 67 65 20 4b |. .F1 - |Change K|
|000005c0| 65 79 20 20 20 20 20 20 | 20 20 20 20 46 34 20 2d |ey | F4 -|
|000005d0| 20 50 72 65 76 69 6f 75 | 73 20 52 65 63 6f 72 64 | Previou|s Record|
|000005e0| 20 20 20 20 46 37 20 2d | 20 4e 65 61 72 65 73 74 | F7 -| Nearest|
|000005f0| 20 52 65 63 6f 72 64 20 | 20 20 20 20 20 20 02 1a | Record | ..|
|00000600| 1a 20 01 46 32 20 2d 20 | 46 69 72 73 74 20 52 65 |. .F2 - |First Re|
|00000610| 63 6f 72 64 20 20 20 20 | 20 20 20 20 46 35 20 2d |cord | F5 -|
|00000620| 20 44 65 6c 65 74 65 20 | 52 65 63 6f 72 64 20 20 | Delete |Record |
|00000630| 20 20 20 20 46 39 20 2d | 20 48 65 6c 70 20 20 20 | F9 -| Help |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 02 1a | | ..|
|00000650| 1a 20 01 46 33 20 2d 20 | 4e 65 78 74 20 52 65 63 |. .F3 - |Next Rec|
|00000660| 6f 72 64 20 20 20 20 20 | 20 20 20 20 46 36 20 2d |ord | F6 -|
|00000670| 20 43 6c 65 61 72 20 53 | 63 72 65 65 6e 20 20 20 | Clear S|creen |
|00000680| 20 20 20 02 45 4e 44 20 | 2d 20 52 65 63 6f 72 64 | .END |- Record|
|00000690| 20 44 61 74 61 20 20 20 | 20 20 20 20 20 20 02 1a | Data | ..|
|000006a0| 1a 20 20 20 01 20 20 20 | 20 20 20 20 20 20 20 20 |. . | |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 53 43 20 | | ESC |
|000006c0| 2d 20 45 78 69 74 20 74 | 6f 20 4d 65 6e 75 20 20 |- Exit t|o Menu |
|000006d0| 20 02 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 1a | | .|
|000006f0| 13 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000700| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000710| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000720| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 1b |........|........|
|00000730| 1b 1b 1b 1b 1b 1b 1b 1b | 1b 1b 1b 1b 1b 1b 1b 14 |........|........|
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000790| 43 4f 4d 50 41 4e 59 20 | 20 20 37 35 20 31 20 33 |COMPANY | 75 1 3|
|000007a0| 20 20 43 20 4e 4e 4e 4e | 20 20 20 20 20 20 20 20 | C NNNN| |
|000007b0| 20 20 20 ff ff 43 55 53 | 54 4e 4f 20 20 20 20 31 | ..CUS|TNO 1|
|000007c0| 30 20 34 32 30 44 20 52 | 30 59 4e 4e 4e 43 55 53 |0 420D R|0YNNNCUS|
|000007d0| 54 4e 4f 50 20 20 20 20 | ff ff 4e 41 4d 45 20 20 |TNOP |..NAME |
|000007e0| 20 20 20 20 33 30 20 34 | 34 37 20 20 4c 20 59 4e | 30 4|47 L YN|
|000007f0| 4e 4e 4e 41 4d 45 50 20 | 20 20 20 20 20 ff ff 53 |NNNAMEP | ..S|
|00000800| 54 52 45 45 54 31 41 20 | 20 33 30 20 37 31 32 20 |TREET1A | 30 712 |
|00000810| 20 4c 20 59 4e 4e 4e 20 | 20 20 20 20 20 20 20 20 | L YNNN | |
|00000820| 20 20 ff ff 53 54 52 45 | 45 54 32 41 20 20 33 30 | ..STRE|ET2A 30|
|00000830| 20 37 34 35 20 20 4c 20 | 59 4e 4e 4e 43 4f 50 59 | 745 L |YNNNCOPY|
|00000840| 20 20 20 20 20 20 20 ff | ff 43 49 54 59 31 41 20 | .|.CITY1A |
|00000850| 20 20 20 33 30 20 38 31 | 32 20 20 4c 20 59 4e 4e | 30 81|2 L YNN|
|00000860| 4e 20 20 20 20 20 20 20 | 20 20 20 20 ff ff 43 49 |N | ..CI|
|00000870| 54 59 32 41 20 20 20 20 | 33 30 20 38 34 35 20 20 |TY2A |30 845 |
|00000880| 4c 20 59 4e 4e 4e 43 4f | 50 59 20 20 20 20 20 20 |L YNNNCO|PY |
|00000890| 20 ff ff 53 54 41 54 45 | 31 20 20 20 20 20 32 20 | ..STATE|1 2 |
|000008a0| 39 20 39 41 20 4c 20 59 | 4e 4e 4e 20 20 20 20 20 |9 9A L Y|NNN |
|000008b0| 20 20 20 20 20 20 ff ff | 5a 49 50 31 20 20 20 20 | ..|ZIP1 |
|000008c0| 20 20 20 35 20 39 31 38 | 20 20 4c 20 59 4e 59 4e | 5 918| L YNYN|
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 ff ff 53 54 41 | | ..STA|
|000008e0| 54 45 32 20 20 20 20 20 | 32 20 39 35 32 41 20 4c |TE2 |2 952A L|
|000008f0| 20 59 4e 4e 4e 43 4f 50 | 59 31 20 20 20 20 20 20 | YNNNCOP|Y1 |
|00000900| ff ff 5a 49 50 32 20 20 | 20 20 20 20 20 35 20 39 |..ZIP2 | 5 9|
|00000910| 36 30 44 20 4c 20 59 4e | 4e 4e 43 4f 50 59 31 20 |60D L YN|NNCOPY1 |
|00000920| 20 20 20 20 20 ff ff 4c | 41 53 54 20 20 20 20 20 | ..L|AST |
|00000930| 20 32 35 31 31 31 33 20 | 20 4c 20 59 4e 4e 4e 20 | 251113 | L YNNN |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 ff ff 46 49 52 53 | | ..FIRS|
|00000950| 54 20 20 20 20 20 31 35 | 31 31 35 34 20 20 4c 20 |T 15|1154 L |
|00000960| 59 4e 4e 4e 20 20 20 20 | 20 20 20 20 20 20 20 ff |YNNN | .|
|00000970| ff 4d 49 20 20 20 20 20 | 20 20 20 20 31 31 31 37 |.MI | 1117|
|00000980| 37 41 20 4c 20 59 4e 4e | 4e 20 20 20 20 20 20 20 |7A L YNN|N |
|00000990| 20 20 20 20 ff ff 48 4f | 4e 20 20 20 20 20 20 20 | ..HO|N |
|000009a0| 20 35 31 32 31 33 20 20 | 4c 20 59 4e 4e 4e 48 4f | 51213 |L YNNNHO|
|000009b0| 4e 50 20 20 20 20 20 20 | 20 ff ff 53 41 4c 4e 41 |NP | ..SALNA|
|000009c0| 4d 45 20 20 20 31 35 31 | 32 35 34 20 20 4c 20 59 |ME 151|254 L Y|
|000009d0| 4e 4e 4e 53 41 4c 4e 41 | 4d 45 50 20 20 20 ff ff |NNNSALNA|MEP ..|
|000009e0| 41 43 31 20 20 20 20 20 | 20 20 20 33 31 33 31 30 |AC1 | 31310|
|000009f0| 44 20 52 20 59 4e 4e 4e | 20 20 20 20 20 20 20 20 |D R YNNN| |
|00000a00| 20 20 20 ff ff 45 58 43 | 48 41 4e 47 45 31 20 20 | ..EXC|HANGE1 |
|00000a10| 33 31 33 31 35 44 20 4c | 20 59 4e 4e 4e 20 20 20 |31315D L| YNNN |
|00000a20| 20 20 20 20 20 20 20 20 | ff ff 4e 55 4d 42 45 52 | |..NUMBER|
|00000a30| 31 20 20 20 20 34 31 33 | 31 39 44 20 4c 20 59 4e |1 413|19D L YN|
|00000a40| 4e 4e 20 20 20 20 20 20 | 20 20 20 20 20 ff ff 45 |NN | ..E|
|00000a50| 58 54 45 4e 31 20 20 20 | 20 31 30 31 33 33 32 20 |XTEN1 | 101332 |
|00000a60| 20 4c 20 59 4e 4e 4e 20 | 20 20 20 20 20 20 20 20 | L YNNN | |
|00000a70| 20 20 ff ff 54 45 52 4d | 53 20 20 20 20 20 20 38 | ..TERM|S 8|
|00000a80| 31 34 20 39 20 20 4c 20 | 59 59 4e 4e 54 45 52 4d |14 9 L |YYNNTERM|
|00000a90| 53 50 20 20 20 20 20 ff | ff 43 55 52 52 4b 45 59 |SP .|.CURRKEY|
|00000aa0| 20 20 20 32 35 31 36 32 | 37 20 20 4c 20 4e 4e 4e | 25162|7 L NNN|
|00000ab0| 4e 20 20 20 20 20 20 20 | 20 20 20 20 ff ff 00 02 |N | ....|
|00000ac0| 20 20 31 30 1f 50 52 4f | 43 20 4c 4f 41 44 1f 20 | 10.PRO|C LOAD. |
|00000ad0| 20 20 20 46 49 4c 45 54 | 59 50 45 20 31 30 30 3a | FILET|YPE 100:|
|00000ae0| 4f 50 4e 1f 20 20 20 20 | 20 20 20 20 47 4f 54 4f |OPN. | GOTO|
|00000af0| 20 50 4f 53 4e 1f 3a 4f | 50 4e 20 20 20 20 45 52 | POSN.:O|PN ER|
|00000b00| 52 4f 52 20 22 43 4f 4e | 54 52 4f 4c 20 46 49 4c |ROR "CON|TROL FIL|
|00000b10| 45 20 4e 4f 54 20 41 56 | 41 49 4c 41 42 4c 45 2e |E NOT AV|AILABLE.|
|00000b20| 20 52 45 54 55 52 4e 49 | 4e 47 20 54 4f 20 4d 45 | RETURNI|NG TO ME|
|00000b30| 4e 55 22 1f 20 20 20 20 | 20 20 20 20 43 48 41 49 |NU". | CHAI|
|00000b40| 4e 20 22 53 41 4d 50 4d | 45 4e 55 2e 51 4e 45 22 |N "SAMPM|ENU.QNE"|
|00000b50| 1f 3a 50 4f 53 4e 20 20 | 20 50 4f 53 4e 20 31 30 |.:POSN | POSN 10|
|00000b60| 30 20 54 4f 20 30 1f 20 | 20 20 20 20 20 20 20 52 |0 TO 0. | R|
|00000b70| 45 41 44 20 31 30 30 20 | 4e 4f 41 44 56 1f 20 20 |EAD 100 |NOADV. |
|00000b80| 20 20 20 20 20 20 43 41 | 4c 4c 20 4f 50 45 4e 1f | CA|LL OPEN.|
|00000b90| 1f 2a 20 4b 45 59 5f 4e | 55 4d 20 77 69 6c 6c 20 |.* KEY_N|UM will |
|00000ba0| 63 6f 6e 74 61 69 6e 20 | 74 68 65 20 63 75 72 72 |contain |the curr|
|00000bb0| 65 6e 74 20 6b 65 79 20 | 6e 75 6d 62 65 72 2e 20 |ent key |number. |
|00000bc0| 20 41 74 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | At the |beginnin|
|00000bd0| 67 1f 2a 20 6f 66 20 74 | 68 65 20 70 72 6f 67 72 |g.* of t|he progr|
|00000be0| 61 6d 20 69 74 20 77 69 | 6c 6c 20 63 6f 6e 74 61 |am it wi|ll conta|
|00000bf0| 69 6e 20 74 68 65 20 70 | 72 69 6d 61 72 79 20 6b |in the p|rimary k|
|00000c00| 65 79 20 6e 75 6d 62 65 | 72 2c 20 31 1f 20 20 20 |ey numbe|r, 1. |
|00000c10| 20 56 52 42 4c 20 4b 45 | 59 5f 4e 55 4d 2c 4e 2c | VRBL KE|Y_NUM,N,|
|00000c20| 31 1f 20 20 20 20 4d 4f | 56 45 20 31 20 54 4f 20 |1. MO|VE 1 TO |
|00000c30| 4b 45 59 5f 4e 55 4d 1f | 20 20 20 20 4d 4f 56 45 |KEY_NUM.| MOVE|
|00000c40| 20 22 43 55 53 54 4f 4d | 45 52 20 4e 55 4d 42 45 | "CUSTOM|ER NUMBE|
|00000c50| 52 22 20 54 4f 20 43 55 | 52 52 4b 45 59 1f 20 20 |R" TO CU|RRKEY. |
|00000c60| 20 20 46 49 4c 4c 20 22 | 5f 22 1f 20 20 20 20 43 | FILL "|_". C|
|00000c70| 4f 4e 43 41 54 20 26 43 | 4f 4d 50 41 4e 59 5b 31 |ONCAT &C|OMPANY[1|
|00000c80| 30 30 5d 20 54 52 49 4d | 4d 45 44 20 2b 20 22 20 |00] TRIM|MED + " |
|00000c90| 2d 20 43 75 73 74 6f 6d | 65 72 20 44 61 74 61 20 |- Custom|er Data |
|00000ca0| 49 6e 70 75 74 22 20 49 | 4e 54 4f 20 43 4f 4d 50 |Input" I|NTO COMP|
|00000cb0| 41 4e 59 1f 20 20 20 20 | 45 4e 44 1f 03 02 20 20 |ANY. |END... |
|00000cc0| 32 30 1f 50 52 4f 43 20 | 4f 50 45 4e 1f 20 20 20 |20.PROC |OPEN. |
|00000cd0| 20 46 49 4c 45 54 59 50 | 45 20 31 3a 4f 50 4e 31 | FILETYP|E 1:OPN1|
|00000ce0| 1f 20 20 20 20 20 20 20 | 20 47 4f 54 4f 20 52 45 |. | GOTO RE|
|00000cf0| 54 1f 3a 4f 50 4e 31 20 | 20 20 43 4f 4e 43 41 54 |T.:OPN1 | CONCAT|
|00000d00| 20 26 44 41 54 41 44 52 | 49 56 45 5b 31 30 30 5d | &DATADR|IVE[100]|
|00000d10| 20 54 52 49 4d 4d 45 44 | 20 2b 20 20 22 53 41 4d | TRIMMED| + "SAM|
|00000d20| 50 43 55 53 54 2e 44 41 | 54 22 20 49 4e 54 4f 20 |PCUST.DA|T" INTO |
|00000d30| 23 53 31 1f 20 20 20 20 | 20 20 20 20 43 4f 4e 43 |#S1. | CONC|
|00000d40| 41 54 20 26 44 41 54 41 | 44 52 49 56 45 5b 31 30 |AT &DATA|DRIVE[10|
|00000d50| 30 5d 20 54 52 49 4d 4d | 45 44 20 2b 20 20 22 53 |0] TRIMM|ED + "S|
|00000d60| 41 4d 50 43 55 53 54 2e | 46 49 44 22 20 49 4e 54 |AMPCUST.|FID" INT|
|00000d70| 4f 20 23 53 32 1f 20 20 | 20 20 20 20 20 20 4f 50 |O #S2. | OP|
|00000d80| 45 4e 20 20 23 53 31 20 | 55 53 49 4e 47 20 23 53 |EN #S1 |USING #S|
|00000d90| 32 2c 20 31 20 55 4e 4c | 4f 43 4b 45 44 3a 20 4e |2, 1 UNL|OCKED: N|
|00000da0| 4f 5f 4f 50 45 4e 1f 3a | 52 45 54 20 20 20 20 52 |O_OPEN.:|RET R|
|00000db0| 45 54 55 52 4e 1f 20 20 | 20 20 45 4e 44 1f 1f 1f |ETURN. | END...|
|00000dc0| 2a 20 46 69 6c 65 20 6e | 6f 74 20 61 76 61 69 6c |* File n|ot avail|
|00000dd0| 61 62 6c 65 20 2d 20 72 | 65 74 75 72 6e 20 74 6f |able - r|eturn to|
|00000de0| 20 6d 65 6e 75 2e 1f 3a | 4e 4f 5f 4f 50 45 4e 1f | menu..:|NO_OPEN.|
|00000df0| 20 20 20 20 45 52 52 4f | 52 20 22 55 4e 41 42 4c | ERRO|R "UNABL|
|00000e00| 45 20 54 4f 20 46 49 4e | 44 20 46 49 4c 45 20 2d |E TO FIN|D FILE -|
|00000e10| 20 52 45 54 55 52 4e 49 | 4e 47 20 54 4f 20 4d 45 | RETURNI|NG TO ME|
|00000e20| 4e 55 22 1f 20 20 20 20 | 43 4c 4f 53 45 1f 20 20 |NU". |CLOSE. |
|00000e30| 20 20 43 48 41 49 4e 20 | 22 53 41 4d 50 4d 45 4e | CHAIN |"SAMPMEN|
|00000e40| 55 2e 51 4e 45 22 1f 20 | 20 20 20 45 4e 44 1f 1f |U.QNE". | END..|
|00000e50| 50 52 4f 43 20 45 4e 54 | 45 52 03 02 20 20 33 30 |PROC ENT|ER.. 30|
|00000e60| 1f 2a 20 20 55 70 64 61 | 74 65 20 6f 72 20 77 72 |.* Upda|te or wr|
|00000e70| 69 74 65 20 6e 65 77 20 | 72 65 63 6f 72 64 1f 20 |ite new |record. |
|00000e80| 20 20 20 43 4f 50 59 20 | 2a 20 54 4f 20 31 1f 20 | COPY |* TO 1. |
|00000e90| 20 20 20 43 41 4c 4c 20 | 57 52 49 54 45 1f 2a 20 | CALL |WRITE.* |
|00000ea0| 49 6e 73 75 72 65 20 6c | 65 61 64 69 6e 67 20 7a |Insure l|eading z|
|00000eb0| 65 72 6f 73 20 61 6e 64 | 20 72 69 67 68 74 20 6a |eros and| right j|
|00000ec0| 75 73 74 69 66 79 1f 20 | 20 20 20 45 44 49 54 20 |ustify. | EDIT |
|00000ed0| 43 55 53 54 4e 4f 20 55 | 53 49 4e 47 20 22 39 39 |CUSTNO U|SING "99|
|00000ee0| 39 39 39 39 39 39 39 39 | 22 20 49 4e 54 4f 20 26 |99999999|" INTO &|
|00000ef0| 43 55 53 54 4e 4f 5b 31 | 5d 1f 20 20 20 20 57 52 |CUSTNO[1|]. WR|
|00000f00| 49 54 45 20 31 3a 33 30 | 31 30 1f 20 20 20 20 52 |ITE 1:30|10. R|
|00000f10| 55 4e 4c 4f 43 4b 20 31 | 1f 20 20 20 20 45 4e 44 |UNLOCK 1|. END|
|00000f20| 1f 1f 33 30 31 30 20 45 | 52 52 4f 52 20 22 45 52 |..3010 E|RROR "ER|
|00000f30| 52 4f 52 20 49 4e 20 57 | 52 49 54 49 4e 47 20 46 |ROR IN W|RITING F|
|00000f40| 49 4c 45 22 1f 20 20 20 | 20 45 4e 44 1f 2a 54 4f |ILE". | END.*TO|
|00000f50| 20 53 48 4f 57 20 48 4f | 57 20 54 4f 20 4d 4f 56 | SHOW HO|W TO MOV|
|00000f60| 45 20 41 20 46 49 4c 45 | 20 41 52 52 41 59 20 54 |E A FILE| ARRAY T|
|00000f70| 4f 20 41 20 53 43 52 45 | 45 4e 20 46 49 45 4c 44 |O A SCRE|EN FIELD|
|00000f80| 20 55 53 49 4e 47 20 4e | 55 4d 45 52 49 43 20 52 | USING N|UMERIC R|
|00000f90| 45 47 45 53 54 45 52 53 | 1f 2a 20 41 4e 44 20 41 |EGESTERS|.* AND A|
|00000fa0| 20 53 49 4d 50 4c 45 20 | 4c 4f 4f 50 1f 1f 50 52 | SIMPLE |LOOP..PR|
|00000fb0| 4f 43 20 52 45 41 44 1f | 20 20 20 20 46 4f 52 20 |OC READ.| FOR |
|00000fc0| 23 4e 31 20 3d 20 30 20 | 54 4f 20 33 1f 20 20 20 |#N1 = 0 |TO 3. |
|00000fd0| 20 20 20 20 20 4d 4f 56 | 45 20 26 41 44 44 52 45 | MOV|E &ADDRE|
|00000fe0| 53 53 28 31 2c 23 4e 31 | 29 20 54 4f 20 24 46 49 |SS(1,#N1|) TO $FI|
|00000ff0| 45 4c 44 28 23 4e 31 2b | 33 29 1f 20 20 20 20 45 |ELD(#N1+|3). E|
|00001000| 4e 44 46 4f 52 20 23 4e | 31 03 02 20 20 34 30 1f |NDFOR #N|1.. 40.|
|00001010| 20 20 20 20 52 45 54 55 | 52 4e 1f 20 20 20 20 45 | RETU|RN. E|
|00001020| 4e 44 1f 1f 2a 49 4e 56 | 45 52 53 4c 59 20 4d 4f |ND..*INV|ERSLY MO|
|00001030| 56 45 20 41 20 46 49 4c | 45 20 41 52 52 41 59 20 |VE A FIL|E ARRAY |
|00001040| 54 4f 20 41 20 53 43 52 | 45 45 4e 20 46 49 45 4c |TO A SCR|EEN FIEL|
|00001050| 44 1f 1f 50 52 4f 43 20 | 57 52 49 54 45 1f 20 20 |D..PROC |WRITE. |
|00001060| 20 20 46 4f 52 20 23 4e | 31 20 3d 20 30 20 54 4f | FOR #N|1 = 0 TO|
|00001070| 20 33 1f 20 20 20 20 20 | 20 20 20 4d 4f 56 45 20 | 3. | MOVE |
|00001080| 24 46 49 45 4c 44 5b 23 | 4e 31 2b 33 5d 20 54 4f |$FIELD[#|N1+3] TO|
|00001090| 20 26 41 44 44 52 45 53 | 53 5b 31 2c 23 4e 31 5d | &ADDRES|S[1,#N1]|
|000010a0| 1f 20 20 20 20 45 4e 44 | 46 4f 52 20 23 4e 31 1f |. END|FOR #N1.|
|000010b0| 20 20 20 20 52 45 54 55 | 52 4e 1f 20 20 20 20 45 | RETU|RN. E|
|000010c0| 4e 44 1f 1f 50 52 4f 43 | 20 43 4f 50 59 1f 2a 20 |ND..PROC| COPY.* |
|000010d0| 43 68 65 63 6b 73 20 66 | 6f 72 20 61 20 6e 75 6c |Checks f|or a nul|
|000010e0| 6c 20 66 69 65 6c 64 20 | 69 6e 20 74 68 65 20 63 |l field |in the c|
|000010f0| 75 72 72 65 6e 74 20 63 | 75 72 73 6f 72 20 6c 6f |urrent c|ursor lo|
|00001100| 63 61 74 69 6f 6e 2e 20 | 20 49 66 20 6e 75 6c 6c |cation. | If null|
|00001110| 1f 2a 20 63 6f 70 69 65 | 73 20 70 72 65 76 69 6f |.* copie|s previo|
|00001120| 75 73 20 66 69 65 6c 64 | 20 74 6f 20 69 74 2e 1f |us field| to it..|
|00001130| 20 20 20 20 4d 4f 56 45 | 20 24 46 49 45 4c 44 5b | MOVE| $FIELD[|
|00001140| 23 46 5d 20 54 4f 20 23 | 53 30 20 54 52 49 4d 4d |#F] TO #|S0 TRIMM|
|00001150| 45 44 1f 20 20 20 20 49 | 46 20 23 53 30 20 45 51 |ED. I|F #S0 EQ|
|00001160| 20 20 22 22 20 54 48 45 | 4e 20 4d 4f 56 45 20 24 | "" THE|N MOVE $|
|00001170| 46 49 45 4c 44 5b 23 46 | 2d 31 5d 20 54 4f 20 24 |FIELD[#F|-1] TO $|
|00001180| 46 49 45 4c 44 5b 23 46 | 5d 1f 20 20 20 20 45 4e |FIELD[#F|]. EN|
|00001190| 44 03 02 20 20 35 30 1f | 1f 50 52 4f 43 20 43 4f |D.. 50.|.PROC CO|
|000011a0| 50 59 31 1f 20 20 20 20 | 4d 4f 56 45 20 24 46 49 |PY1. |MOVE $FI|
|000011b0| 45 4c 44 5b 23 46 5d 20 | 54 4f 20 23 53 30 20 54 |ELD[#F] |TO #S0 T|
|000011c0| 52 49 4d 4d 45 44 1f 20 | 20 20 20 49 46 20 23 53 |RIMMED. | IF #S|
|000011d0| 30 20 45 51 20 22 22 20 | 54 48 45 4e 20 4d 4f 56 |0 EQ "" |THEN MOV|
|000011e0| 45 20 24 46 49 45 4c 44 | 5b 23 46 2d 32 5d 20 54 |E $FIELD|[#F-2] T|
|000011f0| 4f 20 24 46 49 45 4c 44 | 5b 23 46 5d 1f 20 20 20 |O $FIELD|[#F]. |
|00001200| 20 45 4e 44 1f 1f 50 52 | 4f 43 20 4b 45 59 30 1f | END..PR|OC KEY0.|
|00001210| 2a 20 43 6c 6f 73 65 20 | 74 68 65 20 66 69 6c 65 |* Close |the file|
|00001220| 73 20 61 6e 64 20 73 65 | 74 20 23 42 39 20 73 6f |s and se|t #B9 so|
|00001230| 20 74 68 61 74 20 74 68 | 65 20 70 61 73 73 77 6f | that th|e passwo|
|00001240| 72 64 20 77 69 6c 6c 20 | 6e 6f 74 20 62 65 1f 2a |rd will |not be.*|
|00001250| 20 61 73 6b 65 64 20 66 | 6f 72 20 61 67 61 69 6e | asked f|or again|
|00001260| 20 20 69 6e 20 74 68 65 | 20 6d 65 6e 75 2e 1f 20 | in the| menu.. |
|00001270| 20 20 20 53 45 54 20 23 | 42 39 1f 20 20 20 20 43 | SET #|B9. C|
|00001280| 48 41 49 4e 20 22 53 41 | 4d 50 4d 45 4e 55 2e 51 |HAIN "SA|MPMENU.Q|
|00001290| 4e 45 22 1f 20 20 20 20 | 45 4e 44 1f 1f 50 52 4f |NE". |END..PRO|
|000012a0| 43 20 4b 45 59 31 1f 2a | 20 54 68 65 20 66 69 6c |C KEY1.*| The fil|
|000012b0| 65 20 68 61 73 20 74 77 | 6f 20 6b 65 79 73 2e 20 |e has tw|o keys. |
|000012c0| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 77 69 | This ro|utine wi|
|000012d0| 6c 6c 20 61 6c 74 65 72 | 6e 61 74 65 20 62 65 74 |ll alter|nate bet|
|000012e0| 77 65 65 6e 20 31 20 61 | 6e 64 20 32 2e 20 20 54 |ween 1 a|nd 2. T|
|000012f0| 68 65 1f 2a 20 73 61 6d | 65 20 74 65 63 68 6e 69 |he.* sam|e techni|
|00001300| 71 75 65 20 63 61 6e 20 | 62 65 20 75 73 65 64 20 |que can |be used |
|00001310| 74 6f 20 73 74 65 70 20 | 74 68 72 6f 75 67 68 20 |to step |through |
|00001320| 61 6e 79 20 6e 75 6d 62 | 65 72 20 6f 66 20 6b 65 |any numb|er of ke|
|00001330| 79 73 1f 20 20 20 20 41 | 44 44 20 31 20 54 4f 20 |ys. A|DD 1 TO |
|00001340| 4b 45 59 5f 4e 55 4d 1f | 20 20 20 20 49 46 20 4b |KEY_NUM.| IF K|
|00001350| 45 59 5f 4e 55 4d 20 47 | 54 20 32 20 54 48 45 4e |EY_NUM G|T 2 THEN|
|00001360| 20 4d 4f 56 45 20 31 20 | 54 4f 20 4b 45 59 5f 4e | MOVE 1 |TO KEY_N|
|00001370| 55 4d 03 02 20 20 36 30 | 1f 2a 20 46 69 6e 64 20 |UM.. 60|.* Find |
|00001380| 74 68 65 20 6b 65 79 20 | 64 65 73 63 72 69 70 74 |the key |descript|
|00001390| 69 6f 6e 20 69 6e 20 74 | 68 65 20 74 61 62 6c 65 |ion in t|he table|
|000013a0| 20 4b 45 59 44 45 53 43 | 1f 20 20 20 20 54 53 45 | KEYDESC|. TSE|
|000013b0| 41 52 20 4b 45 59 44 45 | 53 43 20 41 54 20 4b 45 |AR KEYDE|SC AT KE|
|000013c0| 59 5f 4e 55 4d 2c 43 55 | 52 52 4b 45 59 1f 2a 20 |Y_NUM,CU|RRKEY.* |
|000013d0| 43 68 61 6e 67 65 20 74 | 68 65 20 6b 65 79 20 74 |Change t|he key t|
|000013e0| 6f 20 74 68 65 20 63 6f | 6e 74 65 6e 74 73 20 6f |o the co|ntents o|
|000013f0| 66 20 4b 45 59 5f 4e 55 | 4d 1f 20 20 20 20 4b 45 |f KEY_NU|M. KE|
|00001400| 59 20 31 20 55 53 49 4e | 47 20 4b 45 59 5f 4e 55 |Y 1 USIN|G KEY_NU|
|00001410| 4d 1f 20 20 20 20 45 4e | 44 1f 1f 50 52 4f 43 20 |M. EN|D..PROC |
|00001420| 4b 45 59 32 1f 20 20 20 | 20 50 4f 53 4e 20 31 20 |KEY2. | POSN 1 |
|00001430| 54 4f 20 22 22 20 52 45 | 4c 41 54 49 56 45 1f 20 |TO "" RE|LATIVE. |
|00001440| 20 20 20 52 4c 4f 43 4b | 20 31 3a 20 52 45 43 5f | RLOCK| 1: REC_|
|00001450| 4c 4f 43 4b 1f 20 20 20 | 20 52 45 41 44 20 31 3a |LOCK. | READ 1:|
|00001460| 35 30 31 30 1f 20 20 20 | 20 43 4f 50 59 20 31 20 |5010. | COPY 1 |
|00001470| 54 4f 20 2a 1f 20 20 20 | 20 43 41 4c 4c 20 52 45 |TO *. | CALL RE|
|00001480| 41 44 1f 35 30 31 30 20 | 45 4e 44 1f 1f 2a 55 53 |AD.5010 |END..*US|
|00001490| 49 4e 47 20 56 41 52 49 | 41 42 4c 45 53 20 49 4e |ING VARI|ABLES IN|
|000014a0| 20 52 45 4c 41 54 49 4f | 4e 20 54 4f 20 53 43 52 | RELATIO|N TO SCR|
|000014b0| 45 45 4e 20 50 4f 53 49 | 54 49 4f 4e 20 54 4f 20 |EEN POSI|TION TO |
|000014c0| 41 43 43 45 53 53 20 46 | 49 4c 45 53 20 41 4e 44 |ACCESS F|ILES AND|
|000014d0| 20 43 48 41 4e 47 45 1f | 2a 20 4b 45 59 53 20 2a | CHANGE.|* KEYS *|
|000014e0| 2a 20 53 45 45 20 50 52 | 4f 43 20 4b 45 59 32 20 |* SEE PR|OC KEY2 |
|000014f0| 41 4e 44 20 50 52 4f 43 | 20 4b 45 59 33 20 2a 2a |AND PROC| KEY3 **|
|00001500| 1f 1f 03 02 20 20 37 30 | 1f 3a 52 45 43 5f 4c 4f |.... 70|.:REC_LO|
|00001510| 43 4b 20 45 52 52 4f 52 | 20 22 52 65 63 6f 72 64 |CK ERROR| "Record|
|00001520| 20 69 6e 20 75 73 65 20 | 2d 20 50 72 65 73 73 20 | in use |- Press |
|00001530| 45 53 43 20 2d 20 73 65 | 6c 65 63 74 20 61 6e 6f |ESC - se|lect ano|
|00001540| 74 68 65 72 22 1f 20 20 | 20 20 20 20 20 20 20 20 |ther". | |
|00001550| 20 20 65 6e 64 1f 50 52 | 4f 43 20 4b 45 59 33 1f | end.PR|OC KEY3.|
|00001560| 2a 20 4e 65 78 74 20 72 | 65 63 6f 72 64 1f 20 20 |* Next r|ecord. |
|00001570| 20 20 52 4c 4f 43 4b 20 | 31 3a 52 45 43 5f 4c 4f | RLOCK |1:REC_LO|
|00001580| 43 4b 1f 20 20 20 20 52 | 45 41 44 20 31 3a 20 45 |CK. R|EAD 1: E|
|00001590| 4e 44 5f 46 49 4c 45 1f | 20 20 20 20 43 4f 50 59 |ND_FILE.| COPY|
|000015a0| 20 31 20 54 4f 20 2a 1f | 20 20 20 20 43 41 4c 4c | 1 TO *.| CALL|
|000015b0| 20 52 45 41 44 1f 20 20 | 20 20 45 4e 44 1f 1f 50 | READ. | END..P|
|000015c0| 52 4f 43 20 4b 45 59 34 | 1f 2a 20 50 72 65 76 69 |ROC KEY4|.* Previ|
|000015d0| 6f 75 73 20 72 65 63 6f | 72 64 1f 20 20 20 20 42 |ous reco|rd. B|
|000015e0| 41 43 4b 53 50 41 43 45 | 20 31 3a 45 4e 44 5f 46 |ACKSPACE| 1:END_F|
|000015f0| 49 4c 45 1f 20 20 20 20 | 42 41 43 4b 53 50 41 43 |ILE. |BACKSPAC|
|00001600| 45 20 31 3a 45 4e 44 5f | 46 49 4c 45 1f 20 20 20 |E 1:END_|FILE. |
|00001610| 20 52 4c 4f 43 4b 20 31 | 3a 52 45 43 5f 4c 4f 43 | RLOCK 1|:REC_LOC|
|00001620| 4b 1f 20 20 20 20 52 45 | 41 44 20 31 3a 45 4e 44 |K. RE|AD 1:END|
|00001630| 5f 46 49 4c 45 1f 20 20 | 20 20 43 4f 50 59 20 31 |_FILE. | COPY 1|
|00001640| 20 54 4f 20 2a 1f 20 20 | 20 20 43 41 4c 4c 20 52 | TO *. | CALL R|
|00001650| 45 41 44 03 02 20 20 38 | 30 1f 20 20 20 20 45 4e |EAD.. 8|0. EN|
|00001660| 44 1f 1f 3a 45 4e 44 5f | 46 49 4c 45 20 20 20 45 |D..:END_|FILE E|
|00001670| 52 52 4f 52 20 22 45 4e | 44 20 4f 46 20 46 49 4c |RROR "EN|D OF FIL|
|00001680| 45 22 1f 20 20 20 20 45 | 4e 44 1f 1f 2a 2a 2a 2a |E". E|ND..****|
|00001690| 20 44 45 4c 45 54 45 20 | 54 48 45 20 52 45 43 4f | DELETE |THE RECO|
|000016a0| 52 44 20 2a 2a 2a 2a 1f | 50 52 4f 43 20 4b 45 59 |RD ****.|PROC KEY|
|000016b0| 35 1f 2a 20 50 6f 73 69 | 74 69 6f 6e 20 75 73 69 |5.* Posi|tion usi|
|000016c0| 6e 67 20 74 68 65 20 63 | 75 73 74 6f 6d 65 72 20 |ng the c|ustomer |
|000016d0| 6e 75 6d 62 65 72 2e 20 | 20 54 68 65 20 6b 65 79 |number. | The key|
|000016e0| 20 69 73 20 63 68 61 6e | 67 65 64 20 73 6f 20 69 | is chan|ged so i|
|000016f0| 74 20 6d 75 73 74 1f 2a | 20 62 65 20 73 61 76 65 |t must.*| be save|
|00001700| 64 20 61 6e 64 20 72 65 | 73 74 6f 72 65 64 2e 1f |d and re|stored..|
|00001710| 20 20 20 20 45 44 49 54 | 20 43 55 53 54 4e 4f 20 | EDIT| CUSTNO |
|00001720| 55 53 49 4e 47 20 22 39 | 39 39 39 39 39 39 39 39 |USING "9|99999999|
|00001730| 39 22 20 49 4e 54 4f 20 | 43 55 53 54 4e 4f 1f 20 |9" INTO |CUSTNO. |
|00001740| 20 20 20 50 4f 53 4e 20 | 31 20 54 4f 20 43 55 53 | POSN |1 TO CUS|
|00001750| 54 4e 4f 20 55 53 49 4e | 47 20 31 1f 20 20 20 20 |TNO USIN|G 1. |
|00001760| 52 45 41 44 20 31 3a 20 | 4e 4f 5f 44 45 4c 45 54 |READ 1: |NO_DELET|
|00001770| 45 1f 20 20 20 20 43 41 | 4c 4c 20 52 45 41 44 1f |E. CA|LL READ.|
|00001780| 20 20 20 20 46 52 45 45 | 20 31 1f 20 20 20 20 4b | FREE| 1. K|
|00001790| 45 59 20 31 20 55 53 49 | 4e 47 20 4b 45 59 5f 4e |EY 1 USI|NG KEY_N|
|000017a0| 55 4d 1f 20 20 20 20 48 | 4f 4d 45 43 4c 45 41 52 |UM. H|OMECLEAR|
|000017b0| 1f 20 20 20 20 45 4e 44 | 1f 03 02 20 20 39 30 1f |. END|... 90.|
|000017c0| 3a 4e 4f 5f 44 45 4c 45 | 54 45 20 20 45 52 52 4f |:NO_DELE|TE ERRO|
|000017d0| 52 20 22 4e 4f 20 52 45 | 43 4f 52 44 20 54 4f 20 |R "NO RE|CORD TO |
|000017e0| 44 45 4c 45 54 45 22 1f | 20 20 20 20 45 4e 44 1f |DELETE".| END.|
|000017f0| 1f 50 52 4f 43 20 4b 45 | 59 36 1f 2a 20 63 6c 65 |.PROC KE|Y6.* cle|
|00001800| 61 72 73 20 74 68 65 20 | 73 63 72 65 65 6e 1f 20 |ars the |screen. |
|00001810| 20 20 20 48 4f 4d 45 43 | 4c 45 41 52 1f 20 20 20 | HOMEC|LEAR. |
|00001820| 20 45 4e 44 1f 1f 50 52 | 4f 43 20 4b 45 59 37 1f | END..PR|OC KEY7.|
|00001830| 2a 20 46 69 6e 64 20 6e | 65 61 72 65 73 74 20 72 |* Find n|earest r|
|00001840| 65 63 6f 72 64 20 75 73 | 69 6e 67 20 74 68 65 20 |ecord us|ing the |
|00001850| 63 75 72 72 65 6e 74 20 | 6b 65 79 2e 20 20 49 66 |current |key. If|
|00001860| 20 74 68 65 20 6b 65 79 | 20 69 73 20 31 20 74 68 | the key| is 1 th|
|00001870| 65 6e 1f 2a 20 75 73 65 | 20 74 68 65 20 76 61 6c |en.* use| the val|
|00001880| 75 65 20 69 6e 20 43 55 | 53 54 4e 4f 2e 20 20 49 |ue in CU|STNO. I|
|00001890| 66 20 32 20 74 68 65 6e | 20 75 73 65 20 74 68 65 |f 2 then| use the|
|000018a0| 20 76 61 6c 75 65 20 69 | 6e 20 4e 41 4d 45 1f 1f | value i|n NAME..|
|000018b0| 20 20 20 20 42 45 47 49 | 4e 20 49 46 20 4b 45 59 | BEGI|N IF KEY|
|000018c0| 5f 4e 55 4d 20 45 51 20 | 31 1f 20 20 20 20 20 20 |_NUM EQ |1. |
|000018d0| 20 20 4d 4f 56 45 20 43 | 55 53 54 4e 4f 20 54 4f | MOVE C|USTNO TO|
|000018e0| 20 23 53 31 1f 20 20 20 | 20 45 4c 53 45 20 49 46 | #S1. | ELSE IF|
|000018f0| 20 4b 45 59 5f 4e 55 4d | 20 45 51 20 32 1f 20 20 | KEY_NUM| EQ 2. |
|00001900| 20 20 20 20 20 20 4d 4f | 56 45 20 4e 41 4d 45 20 | MO|VE NAME |
|00001910| 54 4f 20 23 53 31 1f 20 | 20 20 20 45 4e 44 42 45 |TO #S1. | ENDBE|
|00001920| 47 49 4e 1f 03 02 20 31 | 30 30 1f 2a 20 20 50 6f |GIN... 1|00.* Po|
|00001930| 73 69 74 69 6f 6e 20 31 | 20 74 6f 20 74 68 65 20 |sition 1| to the |
|00001940| 6e 65 61 72 65 73 74 20 | 75 73 69 6e 67 20 74 68 |nearest |using th|
|00001950| 65 20 52 45 4c 41 54 49 | 56 45 20 6d 6f 64 69 66 |e RELATI|VE modif|
|00001960| 69 65 72 1f 20 20 20 20 | 50 4f 53 4e 20 31 20 54 |ier. |POSN 1 T|
|00001970| 4f 20 23 53 31 20 52 45 | 4c 41 54 49 56 45 1f 20 |O #S1 RE|LATIVE. |
|00001980| 20 20 20 20 20 20 20 52 | 4c 4f 43 4b 20 31 20 3a | R|LOCK 1 :|
|00001990| 52 45 43 5f 4c 4f 43 4b | 1f 20 20 20 20 20 20 20 |REC_LOCK|. |
|000019a0| 20 52 45 41 44 20 31 3a | 45 4e 44 5f 46 49 4c 45 | READ 1:|END_FILE|
|000019b0| 1f 20 20 20 20 20 20 20 | 20 43 4f 50 59 20 31 20 |. | COPY 1 |
|000019c0| 54 4f 20 2a 1f 20 20 20 | 20 20 20 20 20 43 41 4c |TO *. | CAL|
|000019d0| 4c 20 52 45 41 44 1f 20 | 20 20 20 20 20 20 20 45 |L READ. | E|
|000019e0| 4e 44 1f 1f 50 52 4f 43 | 20 4b 45 59 39 1f 2a 20 |ND..PROC| KEY9.* |
|000019f0| 48 45 4c 50 20 73 63 72 | 65 65 6e 73 1f 20 20 20 |HELP scr|eens. |
|00001a00| 20 49 46 20 23 46 20 3d | 20 31 34 20 4f 52 20 23 | IF #F =| 14 OR #|
|00001a10| 46 20 45 51 20 31 35 20 | 54 48 45 4e 20 47 4f 54 |F EQ 15 |THEN GOT|
|00001a20| 4f 20 48 45 4c 50 32 1f | 20 20 20 20 48 45 4c 50 |O HELP2.| HELP|
|00001a30| 20 22 53 41 4d 50 43 55 | 53 54 2e 48 50 31 22 2c | "SAMPCU|ST.HP1",|
|00001a40| 20 22 53 41 4d 50 43 55 | 53 54 2e 48 50 32 22 2c | "SAMPCU|ST.HP2",|
|00001a50| 20 22 53 41 4d 50 43 55 | 53 54 2e 48 50 33 22 1f | "SAMPCU|ST.HP3".|
|00001a60| 20 20 20 20 45 4e 44 1f | 1f 3a 48 45 4c 50 32 1f | END.|.:HELP2.|
|00001a70| 2a 20 54 68 69 73 20 68 | 65 6c 70 20 73 63 72 65 |* This h|elp scre|
|00001a80| 65 6e 20 77 69 6c 6c 20 | 6f 6e 6c 79 20 64 69 73 |en will |only dis|
|00001a90| 70 6c 61 79 20 66 6f 72 | 20 74 68 65 20 48 6f 6e |play for| the Hon|
|00001aa0| 6f 72 69 66 69 63 20 61 | 6e 64 20 74 68 65 1f 2a |orific a|nd the.*|
|00001ab0| 20 53 61 6c 75 74 61 74 | 69 6f 6e 20 6e 61 6d 65 | Salutat|ion name|
|00001ac0| 1f 48 45 4c 50 20 22 53 | 41 4d 50 43 55 53 54 2e |.HELP "S|AMPCUST.|
|00001ad0| 48 50 33 22 03 02 20 31 | 31 30 1f 20 20 20 20 45 |HP3".. 1|10. E|
|00001ae0| 4e 44 1f 1f 50 52 4f 43 | 20 43 55 53 54 4e 4f 50 |ND..PROC| CUSTNOP|
|00001af0| 1f 2a 20 54 68 69 73 20 | 70 72 6f 63 20 77 69 6c |.* This |proc wil|
|00001b00| 6c 20 6f 6e 6c 79 20 65 | 78 65 63 75 74 65 20 69 |l only e|xecute i|
|00001b10| 66 20 69 74 20 69 73 20 | 74 61 62 62 65 64 20 61 |f it is |tabbed a|
|00001b20| 6e 64 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6b |nd the c|urrent k|
|00001b30| 65 79 20 69 73 1f 2a 20 | 31 20 61 6e 64 20 74 68 |ey is.* |1 and th|
|00001b40| 65 72 65 20 69 73 20 61 | 20 76 61 6c 75 65 20 69 |ere is a| value i|
|00001b50| 6e 20 43 55 53 54 4e 4f | 2e 1f 1f 20 20 20 20 42 |n CUSTNO|... B|
|00001b60| 45 47 49 4e 20 49 46 20 | 23 4b 20 45 51 20 31 20 |EGIN IF |#K EQ 1 |
|00001b70| 41 4e 44 20 4b 45 59 5f | 4e 55 4d 20 45 51 20 31 |AND KEY_|NUM EQ 1|
|00001b80| 20 41 4e 44 20 43 55 53 | 54 4e 4f 20 47 54 20 30 | AND CUS|TNO GT 0|
|00001b90| 1f 20 20 20 20 20 20 20 | 20 50 4f 53 4e 20 31 20 |. | POSN 1 |
|00001ba0| 54 4f 20 43 55 53 54 4e | 4f 1f 20 20 20 20 20 20 |TO CUSTN|O. |
|00001bb0| 20 20 52 4c 4f 43 4b 20 | 31 3a 52 45 43 5f 4c 4f | RLOCK |1:REC_LO|
|00001bc0| 43 4b 1f 20 20 20 20 20 | 20 20 20 52 45 41 44 20 |CK. | READ |
|00001bd0| 31 3a 31 30 30 31 30 1f | 20 20 20 20 20 20 20 20 |1:10010.| |
|00001be0| 43 41 4c 4c 20 52 45 41 | 44 1f 20 20 20 20 20 20 |CALL REA|D. |
|00001bf0| 20 20 43 4f 50 59 20 31 | 20 54 4f 20 2a 1f 20 20 | COPY 1| TO *. |
|00001c00| 20 20 45 4e 44 42 45 47 | 49 4e 1f 31 30 30 31 30 | ENDBEG|IN.10010|
|00001c10| 20 20 20 45 4e 44 1f 1f | 50 52 4f 43 20 4e 41 4d | END..|PROC NAM|
|00001c20| 45 50 1f 2a 20 54 68 69 | 73 20 70 72 6f 63 20 77 |EP.* Thi|s proc w|
|00001c30| 69 6c 6c 20 6f 6e 6c 79 | 20 65 78 65 63 75 74 65 |ill only| execute|
|00001c40| 20 69 66 20 69 74 20 69 | 73 20 74 61 62 62 65 64 | if it i|s tabbed|
|00001c50| 20 61 6e 64 20 74 68 65 | 20 63 75 72 72 65 6e 74 | and the| current|
|00001c60| 20 6b 65 79 20 69 73 1f | 2a 20 32 20 61 6e 64 20 | key is.|* 2 and |
|00001c70| 74 68 65 72 65 20 69 73 | 20 61 20 76 61 6c 75 65 |there is| a value|
|00001c80| 20 69 6e 20 4e 41 4d 45 | 2e 03 02 20 31 32 30 1f | in NAME|... 120.|
|00001c90| 1f 20 20 20 20 4d 4f 56 | 45 20 4e 41 4d 45 20 54 |. MOV|E NAME T|
|00001ca0| 4f 20 23 53 30 20 54 52 | 49 4d 4d 45 44 1f 1f 2a |O #S0 TR|IMMED..*|
|00001cb0| 20 4d 6f 76 69 6e 67 20 | 4e 41 4d 45 20 74 6f 20 | Moving |NAME to |
|00001cc0| 23 53 30 20 77 69 74 68 | 20 74 68 65 20 54 52 49 |#S0 with| the TRI|
|00001cd0| 4d 4d 45 44 20 6d 6f 64 | 69 66 69 65 72 20 77 69 |MMED mod|ifier wi|
|00001ce0| 6c 6c 20 70 72 6f 64 75 | 63 65 20 61 20 6e 75 6c |ll produ|ce a nul|
|00001cf0| 6c 1f 2a 20 73 74 72 69 | 6e 67 20 69 6e 20 23 53 |l.* stri|ng in #S|
|00001d00| 30 20 69 66 20 74 68 65 | 72 65 20 69 73 20 6e 6f |0 if the|re is no|
|00001d10| 74 68 69 6e 67 20 69 6e | 20 4e 41 4d 45 2e 20 20 |thing in| NAME. |
|00001d20| 49 66 20 6e 75 6c 6c 2c | 20 23 53 30 20 77 69 6c |If null,| #S0 wil|
|00001d30| 6c 20 62 65 1f 2a 20 65 | 71 75 61 6c 20 74 6f 20 |l be.* e|qual to |
|00001d40| 22 22 1f 1f 20 20 20 20 | 42 45 47 49 4e 20 49 46 |"".. |BEGIN IF|
|00001d50| 20 23 4b 20 45 51 20 31 | 20 41 4e 44 20 4b 45 59 | #K EQ 1| AND KEY|
|00001d60| 5f 4e 55 4d 20 45 51 20 | 32 20 41 4e 44 20 23 53 |_NUM EQ |2 AND #S|
|00001d70| 30 20 4e 45 51 20 22 22 | 1f 20 20 20 20 20 20 20 |0 NEQ ""|. |
|00001d80| 20 50 4f 53 4e 20 31 20 | 54 4f 20 43 55 53 54 4e | POSN 1 |TO CUSTN|
|00001d90| 4f 20 52 45 4c 41 54 49 | 56 45 1f 20 20 20 20 20 |O RELATI|VE. |
|00001da0| 20 20 20 52 4c 4f 43 4b | 20 31 3a 52 45 43 5f 4c | RLOCK| 1:REC_L|
|00001db0| 4f 43 4b 1f 20 20 20 20 | 20 20 20 20 52 45 41 44 |OCK. | READ|
|00001dc0| 20 31 3a 31 30 30 32 30 | 1f 20 20 20 20 20 20 20 | 1:10020|. |
|00001dd0| 20 43 41 4c 4c 20 52 45 | 41 44 1f 20 20 20 20 20 | CALL RE|AD. |
|00001de0| 20 20 20 43 4f 50 59 20 | 31 20 54 4f 20 2a 1f 20 | COPY |1 TO *. |
|00001df0| 20 20 20 45 4e 44 42 45 | 47 49 4e 1f 31 30 30 32 | ENDBE|GIN.1002|
|00001e00| 30 20 20 20 45 4e 44 1f | 1f 54 41 42 4c 45 20 4b |0 END.|.TABLE K|
|00001e10| 45 59 44 45 53 43 1f 20 | 20 20 20 31 2c 20 22 43 |EYDESC. | 1, "C|
|00001e20| 55 53 54 4f 4d 45 52 20 | 4e 55 4d 42 45 52 22 03 |USTOMER |NUMBER".|
|00001e30| 02 20 31 33 30 1f 20 20 | 20 20 32 2c 20 22 43 55 |. 130. | 2, "CU|
|00001e40| 53 54 4f 4d 45 52 20 4e | 41 4d 45 22 1f 20 20 20 |STOMER N|AME". |
|00001e50| 20 20 45 4e 44 1f 1f 50 | 52 4f 43 20 53 41 4c 4e | END..P|ROC SALN|
|00001e60| 41 4d 45 50 1f 2a 20 49 | 66 20 73 61 6c 75 74 61 |AMEP.* I|f saluta|
|00001e70| 74 69 6f 6e 20 6e 61 6d | 65 20 69 73 20 73 6b 69 |tion nam|e is ski|
|00001e80| 70 70 65 64 2c 20 66 69 | 72 73 74 20 6e 61 6d 65 |pped, fi|rst name|
|00001e90| 20 77 69 6c 6c 20 62 65 | 20 73 75 62 73 74 69 74 | will be| substit|
|00001ea0| 75 74 65 64 1f 1f 20 20 | 20 20 4d 4f 56 45 20 53 |uted.. | MOVE S|
|00001eb0| 41 4c 4e 41 4d 45 20 54 | 4f 20 23 53 30 20 54 52 |ALNAME T|O #S0 TR|
|00001ec0| 49 4d 4d 45 44 1f 20 20 | 20 20 49 46 20 23 53 30 |IMMED. | IF #S0|
|00001ed0| 20 45 51 20 22 22 20 54 | 48 45 4e 20 4d 4f 56 45 | EQ "" T|HEN MOVE|
|00001ee0| 20 46 49 52 53 54 20 54 | 4f 20 53 41 4c 4e 41 4d | FIRST T|O SALNAM|
|00001ef0| 45 1f 20 20 20 20 45 4e | 44 1f 1f 50 52 4f 43 20 |E. EN|D..PROC |
|00001f00| 48 4f 4e 50 1f 20 20 20 | 20 20 20 20 20 20 4d 4f |HONP. | MO|
|00001f10| 56 45 20 48 4f 4e 20 54 | 4f 20 23 53 30 20 54 52 |VE HON T|O #S0 TR|
|00001f20| 49 4d 4d 45 44 1f 20 20 | 20 20 20 20 20 20 20 54 |IMMED. | T|
|00001f30| 53 45 41 52 20 48 4f 4e | 4f 52 20 41 54 20 23 53 |SEAR HON|OR AT #S|
|00001f40| 30 2c 20 48 4f 4e 3a 4e | 4f 5f 48 4f 4e 1f 3a 4e |0, HON:N|O_HON.:N|
|00001f50| 4f 5f 48 4f 4e 20 45 4e | 44 1f 1f 1f 1f 54 41 42 |O_HON EN|D....TAB|
|00001f60| 4c 45 20 48 4f 4e 4f 52 | 03 02 20 31 34 30 1f 20 |LE HONOR|.. 140. |
|00001f70| 20 20 20 22 31 22 2c 20 | 20 20 20 22 4d 72 2e 22 | "1", | "Mr."|
|00001f80| 1f 20 20 20 20 22 32 22 | 2c 20 20 20 20 22 4d 72 |. "2"|, "Mr|
|00001f90| 73 2e 22 1f 20 20 20 20 | 22 33 22 2c 20 20 20 20 |s.". |"3", |
|00001fa0| 22 4d 73 2e 22 1f 20 20 | 20 20 22 34 22 2c 20 20 |"Ms.". | "4", |
|00001fb0| 20 20 22 44 72 2e 22 1f | 20 20 20 20 22 35 22 2c | "Dr.".| "5",|
|00001fc0| 20 20 20 20 22 50 72 6f | 66 2e 22 1f 20 20 20 20 | "Pro|f.". |
|00001fd0| 45 4e 44 1f 1f 50 52 4f | 43 20 54 45 52 4d 53 50 |END..PRO|C TERMSP|
|00001fe0| 1f 20 20 20 20 4d 4f 56 | 45 20 54 45 52 4d 53 20 |. MOV|E TERMS |
|00001ff0| 54 4f 20 23 53 30 20 54 | 52 49 4d 4d 45 44 1f 20 |TO #S0 T|RIMMED. |
|00002000| 20 20 20 54 53 45 41 52 | 20 54 45 52 4d 53 54 42 | TSEAR| TERMSTB|
|00002010| 4c 45 20 41 54 20 23 53 | 30 2c 20 54 45 52 4d 53 |LE AT #S|0, TERMS|
|00002020| 3a 4e 4f 5f 54 45 52 4d | 53 1f 3a 4e 4f 5f 54 45 |:NO_TERM|S.:NO_TE|
|00002030| 52 4d 53 20 20 20 45 4e | 44 1f 1f 1f 54 41 42 4c |RMS EN|D...TABL|
|00002040| 45 20 54 45 52 4d 53 54 | 42 4c 45 1f 1f 22 31 22 |E TERMST|BLE.."1"|
|00002050| 2c 20 22 43 41 53 48 2f | 43 4f 44 22 1f 22 32 22 |, "CASH/|COD"."2"|
|00002060| 2c 20 22 4e 45 54 22 1f | 22 33 22 2c 20 22 4e 45 |, "NET".|"3", "NE|
|00002070| 54 33 30 22 03 02 20 31 | 35 30 1f 22 34 22 2c 20 |T30".. 1|50."4", |
|00002080| 22 4e 45 54 36 30 22 1f | 1f 20 20 20 20 45 4e 44 |"NET60".|. END|
|00002090| 1f 1f 50 52 4f 43 20 4b | 45 59 38 1f 44 45 42 55 |..PROC K|EY8.DEBU|
|000020a0| 47 1f 65 6e 64 03 00 | |G.end.. | |
+--------+-------------------------+-------------------------+--------+--------+
